MODULE TEST;

TYPE
    abc = ARRAY 11 OF LONGINT;

VAR
    I : INTEGER;
    R : REAL;
    B : BOOL;
    
BEGIN
    I := I + I + 1 + 2; 
    I := I + R + 1 + 2; 
    R := R + I; 
    I := I + I + 1 + 2 + TRUE;
    B := TRUE & FALSE;
    B := 1 & TRUE;
END TEST.

